Electronic Print Media Service 1993 July/Electronic Print Media Service 1993 July.iso/mac/image QUEST 2.1.5/image QUEST EPMS07⁄93/image QUEST EPMS07_93/background_3776.xml

Extensible Markup Language | 1993-04-30 | 44.8 KB | 454 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>3776</id>
    <filler1>0</filler1>
    <bitmap>BMAP_3968.pbm</bitmap>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_2086.css" />
    <part>
        <id>1</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>110</left>
            <top>295</top>
            <right>352</right>
            <bottom>326</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>ref</name>
        <script></script>
    </part>
    <part>
        <id>20</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>393</left>
            <top>4</top>
            <right>506</right>
            <bottom>17</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Flsz</name>
        <script></script>
    </part>
    <part>
        <id>32</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>0</left>
            <top>20</top>
            <right>512</right>
            <bottom>33</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>fullpath</name>
        <script>on mouseup
hide bg fld fullpath
end mouseup
</script>
    </part>
    <part>
        <id>33</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>167</left>
            <top>2</top>
            <right>225</right>
            <bottom>20</bottom>
        </rect>
        <style>transparent</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Options</name>
        <script>on mousedown
set the hilite of me to true
put "Return To Navigator"¬
&return&"Browse From Here"¬
&return&"Indexed Image,File Location Info,Delete This Image,Add Cross-Reference"¬
&return&"File Access,Copy File,Expand File,Display File,Launch File" into items
put HPopupMenu(items,0,top of me +19,bottom of me+148) into junk
set the hilite of me to false
put item 3 to 4 of junk into menuitem

if menuitem = "1,0" then
set hilite of me to false
visual zoom close
go to card "control"
end if

if menuitem = "2,0" then
set hilite of me to false
repeat until the mouseclick
go next
show bg fld searching
Put "Click To Stop" into bg fld searching
wait 1 seconds
Put "" into bg fld searching
if the short name of this card is "control" then
exit repeat
end if
end repeat
hide bg fld searching
end if

if menuitem = "3,1" then
if the visible of bg fld fullpath = true then
put "The File Location Info is already present."
repeat 5
hide bg fld fullpath
wait 30 ticks
show bg fld fullpath
wait 30 ticks
end repeat
hide msg
exit mousedown
end if
show bg fld fullpath
end if

if menuitem = "3,2" then
set hilite of me to false
answer "Are you sure?" with OK or Cancel
if it is "cancel" then
exit mousedown
end if
domenu "delete card"
lock screen
go next
go prev
unlock screen
put "" into card field search of card control
put the number of cards -1 into word 4 of card field "size display" of card 1
end if

if menuitem = "3,3" then
set hilite of me to false
put return after bg fld ref
repeat 3
show bg button pointer
wait 30 ticks
hide bg button pointer
wait 30 ticks
end repeat
click at 209,320
end if

if menuitem = "4,1" then
if bg fld fullpath contains "CMYK" then
put bg fld fullpath into hold
delete last word of hold
repeat 12
delete last char of hold
end repeat
put hold into sourceFolder
ask file ("Select destination & name.") with "CMYK Folder"
put it into destpath
if DestPath Γëá empty then
set cursor to busy
put "Copying all CMYK files."
CopyFolder sourceFolder,Destpath
if the Result Γëá empty then
answer the Result
else
hide msg
answer "CMYK files copied successfully."
end if
end if
go card control
exit mousedown
end if
put bg fld fullpath into source
ask file "Please enter file name."
if it is empty then exit mousedown
put it into dest
set the cursor to watch
CreateCopy source, dest
if the result is not empty then
put "Please insert the proper diskette and choose Copy File again."
repeat 7
hide bg fld fullpath
wait 30 ticks
show bg fld fullpath
wait 30 ticks
end repeat
hide msg
exit mousedown
end if
set the cursor to normal
put "The file was copied successfully."
wait 3 seconds
hide msg
end if

if menuitem = "4,2" then
put word 1 of bg fld flsz into type
put "Please locate this file."
get filename(type)
hide msg
end if

if menuitem = "4,3" then
set hilite of me to false
if bg fld flsz contains "TIFF" then
answer "Can not display this file type."
exit mousedown
end if
put "Please locate the file to be displayed."
put filename() into hold
if hold is empty then
hide msg
exit mousedown
end if
put "5,21,484,291" into lastWindow
put "1" into displayOrPrint
lock screen
set lockMessages to true
dispArt hold,displayOrPrint,1,left,top,right,bottom,0,0,0
put the result into XCMDanswer
if xcmdAnswer contains "error" then
answer "Sorry, unable to display file."
else put xcmdAnswer into lastWindow
openCard
hide msg
end if

if menuitem = "4,4" then
set hilite of me to false
put "Please locate the file to be launched."
put filename() into hold
if hold is empty then
hide msg
exit mousedown
end if
open hold with "the application"
if it is "Cancel" then
hide msg
exit mousedown
end if
end if

end mousedown
</script>
    </part>
    <part>
        <id>40</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>398</left>
            <top>236</top>
            <right>507</right>
            <bottom>252</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>searching</name>
        <script></script>
    </part>
    <part>
        <id>41</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>44</left>
            <top>2</top>
            <right>73</right>
            <bottom>20</bottom>
        </rect>
        <style>transparent</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>File</name>
        <script>on mousedown
set the hilite of me to true
if the number of this card >1  then
beep
answer "The functions of the File Menu are only available at the Navigator Window."
set the hilite of me to false
exit mousedown
end if
put "Import,A File,A Folder"¬
&return&"Merge,Monthly Module,I.Q. Index"¬
&return&"Decompress,DiskDoubler™,UnStuffIt™,ColorSqueeze™"¬
&return&"-("¬
&return&"Categories,Add To,Delete From"¬
&return&"Find Image,Whole Word,Partial Word,Multi-Word Search"¬
&return&"-("¬
&return&"Print Thumbnails,All Images,Initial Descriptions,Marked Favorites"¬
&return&"-("¬
&return&"Quit" into items
put HPopupMenu(items,0,top of me +19,bottom of me+25) into junk
set the hilite of me to false
put item 3 to 4 of junk into menuitem
if menuitem = "1,1" then
importfile
end if
if menuitem = "1,2" then
importfolder
end if
if menuitem = "2,1" then
mergemodule
end if
if menuitem = "2,2" then
mergeoldiq
end if
if menuitem = "3,1" then
decompressit
end if
if menuitem = "3,2" then
open UnStuffItΓäó
end if
if menuitem = "3,3" then
open ColorSqueezeΓäó
end if
if menuitem = "5,1" then
newcat
end if
if menuitem = "5,2" then
delcat
end if
if menuitem = "6,1" then
findkey
end if
if menuitem = "6,2" then
findpartial
end if
if menuitem = "6,3" then
Multiwordsearch
end if

if menuitem = "8,1" then
unmark all cards
lock screen
hide bg pict
show bg fld menucover
show bg fld fullpath
set the style of bg fld fullpath to opaque
set the style of bg fld ref to transparent
set the loc of bg fld flsz to 224,284
set the loc of bg fld fullpath to 256,316
domenu "print stack..."
show bg pict
hide bg fld menucover
set the style of bg fld fullpath to rectangle
set the style of bg fld ref to scrolling
set the loc of bg fld flsz to 449,10
set the loc of bg fld fullpath to 256,26
go card 1
unlock screen
end if

if menuitem = "8,2" then
if card field search = empty then
answer "No favorites selected."
exit mousedown
end if
put "search" into card field whichfield
printthumbs
end if

if menuitem = "8,3" then
if card field favs = empty then
answer "No favorites selected."
exit mousedown
end if
put "favs" into card field whichfield
printthumbs
end if

if menuitem = "10,0" then
set the hilite of me to false
Answer "End image QUESTΓäó For Now?" with "YES" or "NO"
if it is "no" then
exit mousedown
end if
domenu "Quit Hypercard"
end if
end mousedown
</script>
    </part>
    <part>
        <id>42</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>12</left>
            <top>2</top>
            <right>35</right>
            <bottom>20</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>About Index</name>
        <script>on mousedown
set the hilite of me to true
put line 1 of SysEnvironment("noDialog:errGlobal") into hold
put offset (",",hold) into file
delete char 1 to file of hold
put offset (",",hold) into file
put char 1 to file of hold into sysver
delete last char of sysver

if char 1 of sysver = 6 then
put "About image QUESTΓäó,Compact Stack,Make New Index,-(" into theMenuItems
getdanames
put namesofdas after theMenuItems
put hPopUpMenu (theMenuItems, 0, left of me+9, bottom of me-7) into junk
put item 3 to 4 of junk into menuitem
else
put "About image QUESTΓäó,Compact Stack" into theMenuItems
put hPopUpMenu (theMenuItems, 0, left of me+9, bottom of me-7) into junk
put item 3 to 4 of junk into menuitem
end if

if menuitem = "1,0" then
set the hilite of me to false
put the size of this stack into stacksize
repeat 3
delete last char of stacksize
end repeat
put "Images in index:" && the number of cards -1 into card field "size display" of card 1
put "     Index size:" && stacksize & " K" after card field "size display" of card 1
show card field "size display" of card 1
savecolorstate
put the result into res
repeat 2
delete last char of res
end repeat
if res < 256 then
DispPict "lorestartup" ,0,1
else DispPict "Hirestartup" ,0,1
hide card field "size display" of card 1
end if

if menuitem = "2,0" then
put "Shrinking size of index file."
domenu "compact Stack"
hide msg
end if

if menuitem = "3,0" then
set the hilite of me to false
answer "This will create a blank copy of Image QUESTΓäó on your hard drive." with "OK" or "Cancel"
if it is "Cancel" then exit mousedown
domenu "copy card"
lock screen
domenu "new stack..."
domenu "paste card"
put "0" into bg field ref
go card 1
put "0" into bg field ref
domenu "delete card"
put "0" into bg field ref
put "" into card field search
put "" into card field favs
put "" into bg field fullpath
put "" into card field cat
unlock screen
put "Now updating Navigator information."
domenu "compact stack"
hide msg
exit mousedown
end if


if item 1 of menuitem > 4 then
put item 1 of menuitem -2 into da
domenu item da of namesofdas
end if

end mousedown
</script>
    </part>
    <part>
        <id>43</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>84</left>
            <top>2</top>
            <right>113</right>
            <bottom>20</bottom>
        </rect>
        <style>transparent</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Edit</name>
        <script>on mousedown
set the hilite of me to true
if the number of this card >1  then
beep
answer "The functions of the Edit Menu are only available at the Navigator Window."
set the hilite of me to false
exit mousedown
end if
put "Change Path Information"¬
&return&"Delete All Images"¬
&return&"Clear Marked Favorites"¬
&return&"-("¬
&return&"Upgrade..."¬
&return&"Preferences,Browse Speed,Description Options" into items
put HPopupMenu(items,0,left of me -63, bottom of me +65) into junk
set the hilite of me to false
put item 3 to 4 of junk into menuitem

if menuitem = "1,0" then
global errGlobal
put FolderPath("Choose a folder.") into fldrpth
if fldrpth = empty then exit mousedown
put FolderContents(fldrpth, "Both", "noDialog:errGlobal") ¬
into FldrCnts
if errGlobal Γëá empty then
answer "Error: ΓÇ£" & errGlobal & "ΓÇ¥"
put empty into errGlobal
end if
put "Changing path information..."
lock screen
repeat the number of lines of fldrcnts
put line 1 of fldrpth into hold
put line 1 of fldrcnts after hold
put line 1 of fldrcnts into look
find look
if the foundline is empty then
Answer "Image" &&quote &look &quote && "not indexed." with "Continue"
end if
put hold into bg fld fullpath
put offset (":",hold) into file
put char 1 to file of hold into dsk
repeat
if hold contains ":" then
put offset (":",hold) into file
delete char 1 to file of hold
else exit repeat
end repeat
delete line 1 of fldrcnts
end repeat
go card 1
unlock screen
hide msg
end if

if menuitem = "2,0" then
deleteall
end if

if menuitem = "3,0" then
answer "Are you sure you want to delete the Marked Favorites list?" with "OK" or "Cancel"
if it is "Cancel" then exit mousedown
put "" into card field favs
end if


if menuitem = "5,0" then
find whole "Upgrade"
if the foundline is empty then
Answer "There are no upgrades available at this time."
exit mousedown
end if
do bg fld "fullpath"
find whole "Upgrade"
domenu "delete card"
end if

if menuitem = "6,1" then
put "1 Second" into types
put return & "2 Seconds" after types
put return & "3 Seconds" after types
put return & "4 Seconds" after types
put return & "5 Seconds" after types
put ChooseSome (types,"Delay between images.") into hold
put char 1 of hold into card field browsespeed
end if

if menuitem = "6,2" then
if card field importops is empty then
put "Enter custom descriptions." into types
put return & "Default to file name." after types
put ChooseSome (types,"Select one.") into card field importops
else
put "Description Option is currently set to" ¬
&&quote & card field importops &quote
put "Enter custom descriptions." into types
put return & "Default to file name." after types
put ChooseSome (types,"Select one.") into card field importops
hide msg
end if
end if

end mousedown</script>
    </part>
    <part>
        <id>44</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>124</left>
            <top>2</top>
            <right>158</right>
            <bottom>20</bottom>
        </rect>
        <style>transparent</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>View</name>
        <script>on mousedown
set the hilite of me to true
put "All Images"¬
&return&"Initial Descriptions"¬
&return&"Marked Favorites"¬
&return&"News & Events"¬
&return&"Tools,Navigation" into items
put HPopupMenu(items,0,top of me +19,bottom of me+105) into junk
set the hilite of me to false
put item 3 to 4 of junk into menuitem

if menuitem = "1,0" then
browseall
end if
if menuitem = "2,0" then
if card field search of card 1 is empty then
answer "There are no images selected."
exit mousedown
end if
put "search" into card field whichfield of card 1
browsem
end if
if menuitem = "3,0" then
if card field favs of card 1 is empty then
answer "There are no images selected."
exit mousedown
end if
put favs into card field whichfield of card 1
browsem
end if
if menuitem = "4,0" then
if the number of this card >1  then
beep
answer "Please retern to the Navigator Window to view the News & Events marquee."
set the hilite of me to false
exit mousedown
end if
news
end if
if menuitem = "5,1" then
palette "Nav Tools", "399,264"
end if

end mousedown</script>
    </part>
    <part>
        <id>45</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>358</left>
            <top>300</top>
            <right>374</right>
            <bottom>316</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Next</name>
        <script>on mouseUp
visual wipe up slow
go next
end mouseUp</script>
    </part>
    <part>
        <id>46</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>373</left>
            <top>316</top>
            <right>389</right>
            <bottom>331</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Prev</name>
        <script>on mouseUp
visual wipe down slow
go prev
end mouseUp</script>
    </part>
    <part>
        <id>47</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>38</left>
            <top>2</top>
            <right>254</right>
            <bottom>19</bottom>
        </rect>
        <style>opaque</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>menucover</name>
        <script></script>
    </part>
    <part>
        <id>48</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>90</left>
            <top>305</top>
            <right>122</right>
            <bottom>322</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <false /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>29484</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>pointer</name>
        <script></script>
    </part>
    <part>
        <id>50</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>398</left>
            <top>36</top>
            <right>507</right>
            <bottom>235</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>notes</name>
        <script></script>
    </part>
    <name>navback</name>
    <script>on dispPictError initialHandler, xcmdAnswer, whichFile
if xcmdAnswer contains "File not found" then
addThisPath initialHandler
end if
if xcmdAnswer contains "Not enough memory" then
dialogIt "There is not enough memory to open the file" &&quote& ¬
whichFile &quote& "."
end if
if xcmdAnswer contains "user cancelled operation" then
--the user hit command-period to cancel
end if
end dispPICTerror

on returntonav
visual zoom close
go card 1
end returntonav

on importFile
go to card 1
put "PAINT" into types
put return & "PICT" after types
put return & "EPS" after types
put ChooseSome (types,"File Format?") into format
if format is empty then exit importfile
if format is "PAINT" then
put "PNTG" into type
end if
if format is "PICT" then
put "PICT" into type
end if
if format is "EPS" then
put "EPSF" into type
end if
if format is "TIFF" then
put "TIFF" into type
end if
put "Description Option is currently set to" ¬
&&quote & card field importops &quote
put filename(type) into hold
if hold is empty then
if the short name of this card = "control" then
hide msg
exit importFile
end if
end if
put "Importing image(s)."
lock screen
go last card
type "N" with commandkey
set lockMessages to true
tinyPICT Hold,200,200
put the result into xcmdAnswer
if xcmdAnswer contains "error" then
dispPictError "displayTiny",xcmdAnswer,whichPath
openCard
return xcmdAnswer
exit importFile
end if
type "V" with commandKey
drag from 0,00 to 150,60
choose browse tool
unlock screen
put FileSize(hold, "nodialog:errGlobal") into fs
put hold into bg fld fullpath
put offset (":",hold) into file
repeat 3
delete last char of fs
end repeat
put type && "File is" && fs && "K" into background fld flsz
unlock screen
hide msg
put the number of cards -1 into numcrds
put the size of this stack into stacksize
repeat 3
delete last char of stacksize
end repeat
put "Images in index:" && numcrds into card fld "size display" of card 1
put "    Index size:" && stacksize && "K" after card fld "size display" of card 1
if card field importops of card 1 contains "enter custom descriptions." then
repeat until the mouseclick
wait 20 ticks
put "" into bg fld ref
wait 20 ticks
put "Click here to enter image description." into bg fld ref
wait 20 ticks
end repeat
put "" into bg fld ref
click at 211,298
end if
if card field importops of card 1 contains "default to file name." then
repeat
if hold contains ":" then
put offset (":",hold) into file
delete char 1 to file of hold
else exit repeat
end repeat
put hold into bg fld ref
end if
end importFile

on importfolder
global errGlobal
put "Description Option is currently set to" ¬
&&quote & card field "importops"  &quote
put FolderPath("Choose a folder to import.") into fldrpth
if fldrpth = empty then exit importfolder
put FolderContents(fldrpth, "Both", "noDialog:errGlobal") ¬
into FldrCnts
if errGlobal Γëá empty then
answer "Error: ΓÇ£" & errGlobal & "ΓÇ¥"
put empty into errGlobal
end if
put line 1 of fldrpth into hold
put line 1 of fldrcnts after hold
put the number of lines of fldrcnts into reps
put "Importing image(s)."
lock screen
repeat reps
put FileType(hold) into format
if format = "EPSF" or format = "PICT" or format = "PNTG" then
go last card
type "N" with commandkey
tinyPICT Hold,200,200
put the result into xcmdAnswer
if xcmdAnswer contains "error" then
dispPictError "displayTiny",xcmdAnswer,whichPath
openCard
return xcmdAnswer
exit importfolder
end if
type "V" with commandKey
drag from 0,00 to 150,60
choose browse tool
put FileSize(hold, "nodialog:errGlobal") into fs
put hold into bg fld fullpath
repeat 3
delete last char of fs
end repeat
put format && "File is" && fs && "K" into background fld flsz
unlock screen
if card field importops of card 1 contains "default to file name." then
put hold into keep
repeat
if keep contains ":" then
put offset (":",keep) into file
delete char 1 to file of keep
else exit repeat
end repeat
put keep into bg fld ref
end if
if card field importops of card 1 contains "enter custom descriptions." then
wait 2 seconds
ask "Please enter an image description."
put it into bg fld ref
end if
delete line 1 of fldrcnts
put "" into hold
put line 1 of fldrpth into hold
put line 1 of fldrcnts after hold
lock screen
end if
end repeat
put the number of cards -1 into numcrds
put the size of this stack into stacksize
repeat 3
delete last char of stacksize
end repeat
put "Images in index:" && numcrds into card fld "size display" of card 1
put "    Index size:" && stacksize && "K" after card fld "size display" of card 1
hide msg
go card 1
unlock screen
end importfolder

on browseall
put card field browsespeed of card 1 into secs
go card 1
repeat until the mouseclick
go next
show bg fld searching
put "Click to stop." into bg fld searching
wait secs seconds
put "" into bg fld searching
if the short name of this card is "control" then
exit repeat
end if
end repeat
hide bg fld searching
end browseall

on browsem
put card field browsespeed of card 1 into secs
lock screen
go card 1
put card field whichfield of card 1 into ho
put card field ho into howmany
go next
repeat --until the mouseclick
find string line 1 of howmany
put the number of this card into cardno
unlock screen
show bg fld searching
put "Click to stop." into bg fld searching
wait secs seconds
put "" into bg fld searching
delete line 1 of howmany
lock screen
go card 1
go next
if howmany is empty then
go card 1
exit repeat
end if
if the mouse is down then
go card cardno
exit repeat
end if
end repeat
hide bg fld searching
click at 500,500
end browsem

on mergemodule
global destination,source
put the long name of this stack into destination
put "" into source
repeat until source contains "module"
put "Insert the module disk and select the monthly module."
put filename("STAK") into source
if source is empty then
hide msg
exit mergemodule
end if
if "Module" is not in source then
answer "That's not an image module. Please try again."
end if
put source into hang
put offset (":",hang) into vol
end repeat
go to card 1
hide msg
lock screen
go to card 1 of stack source
put the number of cards into cardcount
put bg fld fullpath into dupe
go first card of destination
find string dupe in bg fld fullpath
if the foundline is not empty then
go card 1
answer "This module has already been merged!"
exit mergemodule
end if
go to stack source
put card field marqueeinfo into info
put card field cats into newcats
repeat with i = 1 to the number of cards
set cursor to busy
put "Now merging info for image " & cardcount & "."
put bg fld ref into desc
put bg fld flsz into typensize
put bg fld fullpath into bigwhere
choose select tool
domenu select all
domenu "copy picture"
go next card
push card
go last card of destination
type "N" with commandkey
domenu "paste picture"
domenu "transparent"
put desc into bg fld ref
put typensize into bg fld flsz
put bigwhere into bg fld fullpath
go last card of destination
pop card
subtract 1 from cardcount
end repeat
choose browse tool
go first card of destination
put "Now updating categories."
repeat the number of lines in newcats
find line 1 of newcats in card field cat
if the foundline is empty then
put return & line 1 of newcats after card field cat
delete line 1 of newcats
else
delete line 1 of newcats
end if
end repeat
alpha
unlock screen
set the locktext of card field cat to false
repeat with i=1 to the number of lines of card field cat
GET char 1 of line i of card field cat
SELECT char 1 of line i of card field cat
if it is "a" then type "A"
if it is "b" then type "B"
if it is "c" then type "C"
if it is "d" then type "D"
if it is "e" then type "E"
if it is "f" then type "F"
if it is "g" then type "G"
if it is "h" then type "H"
if it is "i" then type "I"
if it is "j" then type "J"
if it is "k" then type "K"
if it is "l" then type "L"
if it is "m" then type "M"
if it is "n" then type "N"
if it is "o" then type "O"
if it is "p" then type "P"
if it is "q" then type "Q"
if it is "r" then type "R"
if it is "s" then type "S"
if it is "t" then type "T"
if it is "u" then type "U"
if it is "v" then type "V"
if it is "w" then type "W"
if it is "x" then type "X"
if it is "y" then type "Y"
if it is "z" then type "Z"
end repeat
set the locktext of card field cat to true
set the scroll of card field cat to 0
choose the browse tool
click at 500,500
put the number of cards -1 into numcrds
put the size of this stack into stacksize
repeat 3
delete last char of stacksize
end repeat
put "Images in index:" && numcrds into card fld "size display"
put "    Index size:" && stacksize && "K" after card fld "size display"
put info into card field info2
put "Merge process complete."
wait 2 seconds
hide msg
EjectDisk hang, "noDialog:errGlobal"
end mergemodule

on newcat
Ask "Enter new category."
if it is "" then
exit newcat
end if
if it is "Cancel" then
exit newcat
end if
put return & it after card field cat
alpha
find whole it in card field cat
wait 1 second
click at 500,500
end newcat

on delcat
ask "Enter category to delete."
if it is "" then
exit delcat
end if
if it is "Cancel" then
exit delcat
else
find whole it in card field cat
if the foundline is empty then
answer "Sorry!" &&quote &it &quote && "is not in the current list of categories."
else
delete the foundline
end if
end if
end delcat

on findkey
go card 1
ask "Please enter a key word(s)."
if it is "" then exit findkey
put it into card field checkit
put "" into card field search
put "One moment please. . ."
lock screen
find whole it
if the foundline is empty then
hide msg
Answer "Sorry, can't find" &&quote &it &quote
exit findkey
end if
put the number of lines of card field search of card ¬
"control" into request
go next
if bg fld "ref" contains it then
add 1 to request
put line 1 of bg fld "ref" of card 2 into card field search of card control
end if
repeat until the number of this card is 1
add 1 to request
go next
find whole it
if the short name of this card contains "control" then
wait 20 ticks
else
put line 1 of bg fld "ref" into line request ¬
of card field search of card "control"
end if
end repeat
click at 500,500
hide msg
unlock screen
if card field search = "" then
go to card 1
Answer "Sorry, can't find" &&quote &it &quote
end if
end findkey

on findpartial
ask "Please enter a key word(s)."
if it is "" then exit findpartial
put it into card field checkit
put "" into card field search
put "One moment please. . ."
lock screen
find string it
if the foundline is empty then
hide msg
Answer "Sorry, can't find" &&quote &it &quote
exit findpartial
end if
put the number of lines of card field search of card ¬
"control" into request
go next
if bg fld "ref" contains it then
add 1 to request
put line 1 of bg fld "ref" of card 2 into card field search of card control
end if
repeat until the number of this card is 1
add 1 to request
go next
find string it
if the short name of this card contains "control" then
wait 20 ticks
else
put line 1 of bg fld "ref" into line request ¬
of card field search of card "control"
end if
end repeat
click at 500,500
hide msg
unlock screen
if card field search = "" then
go to card 1
Answer "Sorry, can't find" &&quote &it &quote
end if
end findpartial

on Alpha
put AlphaSort(card field cat) into card field cat
end Alpha

on printthumbs
unmark all cards
get card field whichfield
put card field it of card 1 into hold
lock screen
repeat the number of lines of hold
go next
find string line 1 of hold
if the number of this card = 1 then
wait 20 ticks
else
mark this card
hide bg pict
show bg fld menucover
show bg fld fullpath
set the style of bg fld fullpath to opaque
set the style of bg fld ref to transparent
set the loc of bg fld flsz to 224,284
set the loc of bg fld fullpath to 256,316
end if
delete line 1 of hold
go card 1
end repeat
domenu "print stack..."
show bg pict
hide bg fld menucover
set the style of bg fld fullpath to rectangle
set the style of bg fld ref to scrolling
set the loc of bg fld flsz to 449,10
set the loc of bg fld fullpath to 256,26
go card 1
unmark all cards
unlock screen
end printthumbs

on news
set the style of card field marquee to opaque
put card field info2 into card field marquee
repeat the number of chars in card field marquee
if the mouse is down then
put "" into card field marquee
set the style of card field marquee to transparent
exit news
end if
wait 4 ticks
delete char 1 of card field marquee
end repeat
wait 30 ticks
set the style of card field marquee to transparent
end news

on toolboxbrowse
answer "Browse..." with "All" or "Initial" or "Favorites"
if it is "all" then browseall
if it is "initial" then put "initial" into card field whichfield
if it is "favorites" then browsefavs
end toolboxbrowse

on toolboximport
answer "Import..." with "File" or "Folder" or "Cancel"
if it is "File" then importfile
if it is "folder" then importfolder
if it is "cancel" then exit toolboximport
end toolboximport

on notes
if the number of this card = 1 then
exit notes
end if
put "***  NOTES ***" into line 1 of bg fld notes
if the visible of bg fld notes = false then
show bg fld notes
else hide bg fld notes
end notes

on gomonth
put "Designer's Club" after types
put return & "Electronic Clipper" after types
put return & "Electronic PMS" after types
put ChooseSome (types,"Choose which product to search.") into it
if it is "" then
exit gomonth
end if

if it is "Designer's Club" then
put DC into product
end if
if it is "Electronic Clipper" then
put EC into product
end if
if it is "Electronic PMS" then
put EPMS into product
end if
answer "Select media to search." with "Diskette" or "CD-ROM"
if it is "Diskette" then
lock screen
put "January" into types
put return & "February" after types
put return & "March" after types
put return & "April" after types
put return & "May" after types
put return & "June" after types
put return & "July" after types
put return & "August" after types
put return & "September" after types
put return & "October" after types
put return & "November" after types
put return & "December" after types
put ChooseSome (types,"Choose a month.") into month
if month is empty then
exit gomonth
end if
ask "What year?"
if the number of chars in it > 2 then
repeat 2
delete char 1 of it
end repeat
end if
put " '" & it after month
put product & " " before month
go card 1
find whole month
if the foundline is empty then
repeat until the number of chars in word 2 of month = 4
delete last char of word 2 of month
end repeat
find whole month
end if
if the foundline is empty then
repeat until the number of chars in word 2 of month = 3
delete last char of word 2 of month
end repeat
find whole month
end if
if the foundline is empty then
answer "Sorry! Can't find that month and year."
end if
click at 500,500
unlock screen
end if

if it is "CD-ROM" then
lock screen
put "01" into types
put return & "02" after types
put return & "03" after types
put return & "04" after types
put return & "05" after types
put return & "06" after types
put return & "07" after types
put return & "08" after types
put return & "09" after types
put return & "10" after types
put return & "11" after types
put return & "12" after types
put ChooseSome (types,"Choose an issue.") into month
if month is empty then
exit gomonth
end if
ask "What year?"
if the number of chars in it > 2 then
repeat 2
delete char 1 of it
end repeat
end if
put "/" & it after month
put product before month
go card 1
find whole month
if the foundline is empty then
answer "Sorry! Can't find that month and year."
end if
click at 500,500
unlock screen
end if
end gomonth



on multiwordsearch
put "" into card field search
Ask "Enter primary subject."
put it into firstsearch
put it into card field checkit
Ask "Enter secondary subject."
put it into secondsearch
put "One moment please. . ."
lock screen
set lockmessages to true
find whole firstsearch
if the foundline is empty then
answer "No matches found!"
hide msg
exit multiwordsearch
end if
put the foundline into select
put the number of lines of card field search of card ¬
"control" into request
go next
if bg fld "ref" contains firstsearch then
add 1 to request
put line 1 of bg fld "ref" of card 2 into card field search of card control
end if
repeat until the number of this card is 1
add 1 to request
go next
find whole firstsearch
if the short name of this card contains "control" then
wait 20 ticks
else
put line 1 of bg fld "ref" into line request ¬
of card field search of card "control"
end if
end repeat
repeat
find secondsearch in card field search
if the foundline is empty then exit repeat
put the foundline into select
select the foundline
put return & the selectedtext after holder
delete select
end repeat
put holder into card field search
delete line 1 of card field search
if card field search is empty then
answer "No matches found!"
hide msg
exit multiwordsearch
end if
click at 500,500
hide msg
set lockmessages to false
unlock screen
end multiwordsearch

on mergeoldiq
global destination,source
put the long name of this stack into destination
put "" into source
put "Select your IQ Index."
put filename(STAK) into source
if source is empty then
hide msg
exit mergeoldiq
end if
go to card 1
hide msg
lock screen
go to card 2 of stack source
put "" into noscript
set the script of this stack to noscript
put the number of cards -1 into cardcount
put item 1 to 2 of bg fld fullpath into dupe
go first card of destination
find whole dupe in bg fld fullpath
if the foundline is not empty then
go card 1
answer "Some images from the previous index have already been merged!"
answer "Delete duplicate images from previous index and merge again."
exit mergeoldiq
end if
go card 2 of stack source
put card field cat of card 1 into newcats

repeat with i = 1 to cardcount
set cursor to busy
put "Merging info for image " & cardcount & "."
put bg fld ref into desc
put bg fld flsz into typensize
put bg fld fullpath into bigwhere
choose select tool
domenu select all
domenu "copy picture"
go next card
push card
go last card of destination
type "N" with commandkey
domenu "paste picture"
domenu "transparent"
put desc into bg fld ref
put typensize into bg fld flsz
put bigwhere into bg fld fullpath
go last card of destination
pop card
subtract 1 from cardcount
end repeat
choose browse tool
go first card of destination
put "Now updating categories."
repeat the number of lines in newcats
find line 1 of newcats in card field cat
if the foundline is empty then
put return & line 1 of newcats after card field cat
delete line 1 of newcats
else
delete line 1 of newcats
end if
end repeat
alpha
unlock screen
hide msg
click at 500,500
put the number of cards -1 into numcrds
put the size of this stack into stacksize
repeat 3
delete last char of stacksize
end repeat
put "Images in index:" && numcrds into card fld "size display"
put "    Index size:" && stacksize && "K" after card fld "size display"
put "Merge process complete."
wait 2 seconds
hide msg
end mergeoldiq

on gonextfav
if card fld favs of card 1 = empty then
answer "The Marked Favorites field is empty."
exit gonextfav
end if
if the number of this card = 1 then
put 1 into card fld tracer
lock screen
find string line card fld tracer of card field favs in bg fld ref
unlock screen
else
lock screen
go card 1
add 1 to card field tracer
find string line card fld tracer of card field favs in bg fld ref
end if
end gonextfav

on goprevfav
if card fld favs of card 1 = empty then
answer "The Marked Favorites field is empty."
exit goprevfav
end if
if the number of this card = 1 then
put the number of lines of card field favs into card fld tracer
lock screen
find string line card fld tracer of card field favs in bg fld ref
unlock screen
else
lock screen
go card 1
subtract 1 from card field tracer
find string line card fld tracer of card field favs in bg fld ref
end if
end goprevfav

on deleteall
answer "Delete all " & the number of cards - 1 & " images?" with YES or No
if it is "No" then
exit deleteall
end if
if it is "yes" then
answer "This proceedure will delete all information from the index! Do you wish to continue?" with "YES" or "NO"
if it is "No" then
exit deleteall
end if
end if
put "Please Wait... deleting all images."
lock screen
repeat for the number of cards
if the short name of this card is "control" then
go next
else
set cursor to busy
doMenu "Delete Card"
end if
end repeat
unlock screen
put "" into card field search
put "" into card field cat
put "" into card field favs
put the number of cards -1 into numcrds
put the size of this stack into stacksize
repeat 3
delete last char of stacksize
end repeat
put "Images in index:" && numcrds into card fld "size display"
put "    Index size:" && stacksize && "K" after card fld "size display"
domenu "compact stack"
hide msg
end deleteall

on decompressit
put "PAINT" into types
put return & "PICT" after types
put return & "EPS" after types
put return & "TIFF" after types
put ChooseSome (types,"File Format?") into format
if format is empty then exit decompressit
if format is "PAINT" then
put "PNTG" into type
end if
if format is "PICT" then
put "PICT" into type
end if
if format is "EPS" then
put "EPSF" into type
end if
if format is "TIFF" then
put "TIFF" into type
end if
put filename(type) into hold
if hold is empty then
if the short name of this card = "control" then
hide msg
exit decompressit
end if
end if
end decompressit
</script>
</background>